home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / SCARYHALL.ARC / SCARY HALL (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  1KB  |  48 lines
  1. 10 POKE53280,12:POKE53281,12:PRINTCHR$(147)
  2. 12 FORW=1TO1000:NEXT
  3. 15 PRINT""
  4. 20 A$="***WARNING***"
  5. 30 FOR I= LEN(A$) TO 1 STEP-1
  6. 40 FORZZ=1 TO (36+LEN(A$))/2 -LEN(A$)+I
  7. 50 PRINTTAB(ZZ)" "MID$(A$,I,1);"[145]"
  8. 60 NEXTZZ:NEXTI
  9. 70 FORW=1TO1000:NEXT
  10. 80 PRINT"[144]YOU ARE ABOUT TO ENTER SCARY HALL,"
  11. 85 PRINT"A HAUNTED MANSION FILLED WITH EVIL"
  12. 90 PRINT"SPIRITS AND A VERY LIVE MURDERER!"
  13. 95 PRINT"THE PROGRAMMER AND ALL SUBSEQUENT"
  14. 100 PRINT"DISTRIBUTORS OF THIS PROGRAM ASSUME"
  15. 105 PRINT"NO LIABILITY FOR YOUR DEATH OR INJURY"
  16. 110 PRINT"WHILE RUNNING THIS PROGRAM!"
  17. 112 PRINT"[164][164][164][164][164][164]"
  18. 115 PRINT"PRESS RETURN[146] TO CONTINUE"
  19. 120 PRINT"OR ANY OTHER KEY TO CHICKEN OUT."
  20. 125 GETA$:IFA$=""THEN125
  21. 130 IFA$=CHR$(13)THENLOAD"HALL.LDR",8,1:NEW
  22. 1000 FORT=49152TO49329
  23. 1010 READP
  24. 1020 POKET,P:NEXT
  25. 1030 SYS49152
  26. 1040 SYS64738
  27. 1050 DATA162,39,142,61,3,162,0,142,60,3
  28. 1060 DATA169,0,141,62,3,169,4,141,63,3
  29. 1070 DATA169,192,141,64,3,169,7,141,65
  30. 1080 DATA3,162,24,134,2,169,0,133,251
  31. 1090 DATA169,4,133,252,166,2,240,16,24
  32. 1100 DATA165,251,105,40,133,251,165,252
  33. 1110 DATA105,0,133,252,202,208,240,172
  34. 1120 DATA61,3,169,32,145,251,172,60,3
  35. 1130 DATA145,251,198,2,16,212,48,2,208
  36. 1140 DATA204,160,39,173,62,3,133,253
  37. 1150 DATA173,63,3,133,254,169,32,145
  38. 1160 DATA253,136,16,251,160,39,173
  39. 1170 DATA64,3,133,253,173,65,3,133,254
  40. 1180 DATA169,32,145,253,136,16,251,24
  41. 1190 DATA169,40,109,62,3,141,62,3,173
  42. 1200 DATA63,3,105,0,141,63,3,56,173,64
  43. 1210 DATA3,233,40,141,64,3
  44. 1220 DATA173,65,3,233,0,141,65,3,160,32
  45. 1230 DATA162,255,202,208,253,136,208
  46. 1240 DATA248,238,60,3,206,61,3,173,61,3
  47. 1250 DATA201,26,208,159,96
  48.